home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR10 / SPX20.ZIP / SPX_INT.ZIP / MOUSE.INT next >
Text File  |  1993-09-15  |  1KB  |  45 lines
  1. Unit Mouse;
  2.  
  3. {$O+,X+ }
  4. { SPX Library Version 2.0  Copyright 1993 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. Uses dos;
  9.  
  10. const
  11.    visible     : boolean = false;
  12.    mousehere   : boolean = false;
  13.    mousewason  : boolean = false;
  14.    nomouse     : boolean = true;
  15.    mouseoncall : boolean = false;
  16.    skl         : integer = 1;
  17.    mseshp      : array[0..31] of word =
  18.                  ($1fff,$0fff,$07ff,$03ff,$07ff,$03ff,$e7ff,$ffff,
  19.                   $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,
  20.                   $0000,$4000,$6000,$7000,$6000,$1000,$0000,$0000,
  21.                   $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000);
  22.  
  23.  
  24. var
  25.    m1,m2,m3,m4 : integer;
  26.  
  27. procedure mset(var m1,m2,m3,m4:integer);
  28. function mousereset:integer;
  29. procedure mouseon;
  30. function mouseoff:boolean;
  31. procedure getmouse(var m2,m3,m4:integer);
  32. procedure setmouse(m3,m4:integer);
  33. procedure getmousepresses(var m2,m3,m4:integer);
  34. procedure getmousereleases(var m2,m3,m4:integer);
  35. procedure getmousemotion(var m3,m4:integer);
  36. procedure setmousecursor(m2,m3:integer; var mask);
  37. procedure setmouseratio(m3,m4:integer);
  38. procedure setmouseoff(x1,y1,x2,y2:integer);
  39. procedure setmousepage(f:byte);
  40. procedure cleanmouse;
  41. procedure chkmouseon;
  42. procedure setdefptr;
  43. procedure normalizemx;
  44.  
  45.